home *** CD-ROM | disk | FTP | other *** search
- <HTML>
-
- <HEAD>
-
- </HEAD>
-
- <BODY onload="cycle();">
-
- <H2 ID=sg STYLE="color:Black;">Shell Game</H2>
-
- <IMG SRC="gem.gif" ID=gem BORDER=0
-
- STYLE="container:positioned;position:absolute;
-
- TOP:192pt;LEFT:142px;WIDTH:32px;HEIGHT:32px;ZINDEX:0;">
-
- <IMG SRC="walnut.gif" ID=shell1 BORDER=0 onclick="Guess();"
-
- STYLE="container:positioned;position:absolute;
-
- TOP:50pt;LEFT:0px;WIDTH:64px;HEIGHT:64px;ZINDEX:1;">
-
- <IMG SRC="walnut.gif" ID=shell2 BORDER=0 onclick="Guess();"
-
- STYLE="container:positioned;position:absolute;
-
- TOP:50pt;LEFT:142px;WIDTH:64px;HEIGHT:64px;ZINDEX:2;">
-
- <IMG SRC="walnut.gif" ID=shell3 BORDER=0 onclick="Guess();"
-
- STYLE="container:positioned;position:absolute;
-
- TOP:50pt;LEFT:284px;WIDTH:64px;HEIGHT:64px;ZINDEX:3;">
-
- <OBJECT ID="pathone"
-
- CLASSID="CLSID:E0E3CC60-6A80-11D0-9B40-00A0C903AA7F">
-
- <PARAM NAME=XSeries
-
- VALUE="0,0;10,126;20,0;30,284;40,0;50,142;60,284;70,142;80,142">
-
- <PARAM NAME=YSeries
-
- VALUE="0,50;10,176;20,50;30,176;40,50;50,176;60,50;70,176;80,50">
-
- </OBJECT>
-
- <OBJECT ID="pathtwo"
-
- CLASSID="CLSID:E0E3CC60-6A80-11D0-9B40-00A0C903AA7F">
-
- <PARAM NAME=XSeries
-
- VALUE="0,142;10,142;20,142;30,142;40,284;50,0;60,0;70,0;80,284">
-
- <PARAM NAME=YSeries
-
- VALUE="0,50;10,50;20,50;30,176;40,50;50,176;60,50;70,176;80,50">
-
- </OBJECT>
-
- <OBJECT ID="paththree"
-
- CLASSID="CLSID:E0E3CC60-6A80-11D0-9B40-00A0C903AA7F">
-
- <PARAM NAME=XSeries
-
- VALUE="0,284;10,284;20,284;30,0;40,142;50,284;60,142;70,284;80,0">
-
- <PARAM NAME=YSeries
-
- VALUE="0,50;10,50;20,50;30,176;40,50;50,176;60,50;70,176;80,50">
-
- </OBJECT>
-
- <OBJECT ID="pathfour"
-
- CLASSID="CLSID:E0E3CC60-6A80-11D0-9B40-00A0C903AA7F">
-
- <PARAM NAME=XSeries
-
- VALUE="0,142;10,142;20,16;30,300;40,16;50,158;60,300;70,158;80,158">
-
- <PARAM NAME=YSeries
-
- VALUE="0,192;10,192;20,66;30,192;40,66;50,192;60,66;70,192;80,66">
-
- </OBJECT>
-
- <SCRIPT LANGUAGE=VBScript>
-
- function cycle()
-
- dim itimer
-
- pathone.Target = shell1.Style
-
- pathtwo.Target = shell2.Style
-
- paththree.Target = shell3.Style
-
- pathfour.Target = gem.Style
-
- shell1.style.visibility="visible"
-
- shell2.style.visibility="visible"
-
- shell3.style.visibility="visible"
-
- gem.style.visibility="visible"
-
- pathone.Play
-
- pathtwo.Play
-
- paththree.Play
-
- pathfour.Play
-
- itimer = setTimeout( "Moves()", 50)
-
- End function
-
-
-
- Sub Moves
-
- dim itimer
-
- pathone.Tick
-
- pathtwo.Tick
-
- paththree.Tick
-
- pathfour.Tick
-
- if currentTick < 9 then
-
- itimer = setTimeout("Moves()", 50)
-
- end if
-
- End Sub
-
- </SCRIPT>
-
-
-
- <SCRIPT LANGUAGE=VBScript>
-
- function Guess()
-
- dim r, srcElement
-
- set srcElement = window.event.srcElement
-
- if (srcElement.id="shell1") then
-
- srcElement.src = "gem.gif"
-
- else
-
- srcElement.src = "wrong.gif"
-
- end if
-
- end function
-
- </SCRIPT>
-
- </BODY>
-
- </HTML>
-
-